LOGIC Apps/Logic-APPLE_II_APPS.iso/pc/LOGIC Apple II 5.25" Library - ProDOS/PRO021.dsk/FINDOC.bas

BASIC Source File | 2012-02-16 | 10KB | 124 lines

10  GOTO 30
15  PRINT  CHR$(15); CHR$(27);
20  VTAB VP: HTAB SP: FOR Z = SP TO EP: PRINT "S";: NEXT
25  PRINT  CHR$(14); CHR$(24);: PRINT "": RETURN
30  HOME : VTAB 1: HTAB 2: PRINT "FINCALC Documentation";: HTAB 69: PRINT "Page 1 of 5":VP = 2:SP = 2:EP = 79: GOSUB 15
35  VTAB 3: HTAB 2: PRINT "1. MORTGAGES"
40  VTAB 4: PRINT "     This program will provide repayment tables for any mortgage,at any"
45  VTAB 5: PRINT "interest rate and for any amortization period.It operates to Canadian mortgage "
50  VTAB 6: PRINT "rules in which the interest rate is stated on the basis of 6 monthly"
55  VTAB 7: PRINT "compounding - even though in practice it is compounded monthly (if you pay"
60  VTAB 8: PRINT "monthly,which is usually the case).This is done by using an equivalent rate,"
65  VTAB 9: PRINT "slightly lower than the stated rate,which results in the same amount of "
70  VTAB 10: PRINT "interest being paid.You will see this equivalent rate displayed at the top of "
75  VTAB 11: PRINT "some of the tables."
80  VTAB 12: PRINT "     When you have entered the Mortgage Amount and Stated Interest Rate you"
85  VTAB 13: PRINT "will be asked to enter the Amortization Period.If you wish to consider a choice"
90  VTAB 14: PRINT "of periods,and therefore monthly payments,enter 0 and a table of payments for"
95  VTAB 15: PRINT "periods up to 30 years will be displayed (after a short wait).Note that it also"
100  VTAB 16: PRINT "includes a column headed '5 Year Balance'.This shows the amount still owing at"
105  VTAB 17: PRINT "the end of a 5 year term.It should be considered when choosing an amortization"
110  VTAB 18: PRINT "period,because you will see that a small increase in the monthly payment can"
115  VTAB 19: PRINT "have a significant effect on the balance.At this point you can enter the period"
120  VTAB 20: PRINT "of your choice ,or enter '0' to return to the Main Menu"
125  VTAB 21: PRINT "     If you elect to continue,the next step is to enter the Mortgage Start Date"
130  VTAB 22: PRINT "in 'year,month' format (e.g '86,2').This is the date on which the funds are"
135  VTAB 23: INVERSE : PRINT "CONTINUE ?-(Y)es or (N)o": NORMAL
140  GET A$: IF A$ = "Y"  THEN 155
145  IF A$ = "N"  THEN 620
150  GOTO 140
155  HOME : VTAB 1: HTAB 2: PRINT "FINCALC Documentation";: HTAB 69: PRINT "Page 2 of 5":VP = 2:SP = 2:EP = 79: GOSUB 15
160  VTAB 3: PRINT "advanced and the month is referred to as the 'Anniversary Date',or sometimes as"
165  VTAB 4: PRINT "the 'Interest Adjustment Date' - the first payment is due one month later.Next"
170  VTAB 5: PRINT "you must enter the Mortgage Term in years (one or two digits) - this is the"
175  VTAB 6: PRINT "length of time until the mortgage must be repayed or renewed.You are next asked"
180  VTAB 7: PRINT "whether you wish to make any prepayments during the mortgage term - enter Y for"
185  VTAB 8: PRINT "Yes or N for No.A 'No' answer will take you straight to the repayment tables"
190  VTAB 9: PRINT "which are described later.Note that,while this is going on,the data you you are"
195  VTAB 10: PRINT "entering is stored in a table at top left of the screen."
200  VTAB 11: PRINT "     A 'Yes' answer leads to the next question - are there any conditions"
205  VTAB 12: PRINT "associated with making prepayments ? Again enter (Y)es or (N)o.If there are"
210  VTAB 13: PRINT "conditions you will then be asked to define them.They usually take two forms -"
215  VTAB 14: PRINT "a penalty of a number of months interest on the amount prepayed,or a limit on "
220  VTAB 15: PRINT "the amount that may be prepayed without penalty on any Anniversary Date as a %"
225  VTAB 16: PRINT "of the original mortgage amount.In either case enter the appropriate numbers or"
230  VTAB 17: PRINT "'X' if the condition does not apply."
235  VTAB 18: PRINT "     If you have survived this far you will now be asked to specify prepayments"
240  VTAB 19: PRINT "by first entering the amount and then the date (again in 'year,month' format)"
245  VTAB 20: PRINT "These questions will continue until you end them by entering '0' for the amount"
250  VTAB 21: PRINT "Accomodation is made for up to 24 separate prepayments,which should be more"
255  VTAB 22: PRINT "than adequate."
260  VTAB 23: INVERSE : PRINT "CONTINUE ?-(Y)es or (N)o": NORMAL
265  GET A$: IF A$ = "Y"  THEN 280
270  IF A$ = "N"  THEN 620
275  GOTO 265
280  HOME : VTAB 1: HTAB 2: PRINT "FINCALC Documentation";: HTAB 69: PRINT "Page 3 of 5":VP = 2:SP = 2:EP = 79: GOSUB 15
285  VTAB 3: PRINT "     This can be an interesting exercize,because it shows how prepayments made"
290  VTAB 4: PRINT "during the life of the mortgage can make a significant reduction in the amount"
295  VTAB 5: PRINT "owing at the end of the term."
300  VTAB 6: PRINT "     Whether you got there by the long route or the short one the tables will"
305  VTAB 7: PRINT "now start to appear.They will show the amount of interest and principal paid"
310  VTAB 8: PRINT "each month and the balance owing.The number of tables will depend on the term"
315  VTAB 9: PRINT "of the mortgage and at the end of each one you have the option of hitting "
320  VTAB 10: PRINT "'Escape' to return to the Main Menu,'1' to print a hard copy (if you have a"
325  VTAB 11: PRINT "printer),'2' to recycle to a new mortgage,or any other key to continue to the "
330  VTAB 12: PRINT "next table.At the end of the last table you can also recycle to a new set of"
335  VTAB 13: PRINT "prepayments for the same mortgage by pressing '3'.When using the hard copy"
340  VTAB 14: PRINT "option please be patient - the subroutine which does this (from Nibble) takes"
345  VTAB 15: PRINT "about 10 seconds to scan 80 columns before the printer shows signs of life."
350  VTAB 16: PRINT "There is also a 1 or 2 second wait between each line."
355  VTAB 17: PRINT "     I hope this program will help you make informed choices when taking out a"
360  VTAB 18: PRINT "new mortgage or renewing an existing one."
365  VTAB 23: INVERSE : PRINT "CONTINUE ?-(Y)es or (N)o": NORMAL
370  GET A$: IF A$ = "Y"  THEN 385
375  IF A$ = "N"  THEN 620
380  GOTO 370
385  HOME : VTAB 1: HTAB 2: PRINT "FINCALC Documentation";: HTAB 69: PRINT "Page 4 of 5":VP = 2:SP = 2:EP = 79: GOSUB 15
390  VTAB 3: PRINT " 2. INVESTMENTS"
395  VTAB 4: PRINT "     This is a rather trivial program which merely produces tables showing the"
400  VTAB 5: PRINT "way in which an investment grows with time.All you are asked to enter are the"
405  VTAB 6: PRINT "amount,the interest rate and the starting date (year,month).The calculations"
410  VTAB 7: PRINT "are performed for monthly compounding."
415  VTAB 8: PRINT " 3. ANNUITIES"
420  VTAB 9: PRINT "     This one displays a table of annual or monthly payments generated by any"
425  VTAB 10: PRINT "principal amount at any interest rate for periods up to 40 years.Enter the"
430  VTAB 11: PRINT "amount and interest rate followed by 'A' for Annual or 'M' for Monthly payments"
435  VTAB 12: PRINT "     It is interesting to note that a mortgage is really an Annuity (from the"
440  VTAB 13: PRINT "lender's point of view).If you enter the Equivalent Interest Rate calculated"
445  VTAB 14: PRINT "by the Mortgage program into this one,along with the appropriate amount and"
450  VTAB 15: PRINT "specify (M)onthly payments you will produce a table of monthly payments for"
455  VTAB 16: PRINT "different amortization periods similar to the one produced by the Mortgage"
460  VTAB 17: PRINT "program."
465  VTAB 18: PRINT " 4. TIME FACTORS"
470  VTAB 19: PRINT "     Any of the classical time value of money factors will be calculated by"
475  VTAB 20: PRINT "this program for periods up to 40 years.After selecting the factor required and"
480  VTAB 21: PRINT "entering the interest rate,followed by 'A' for Annual or 'M' for Monthly"
485  VTAB 22: PRINT "compounding,or payments,a table will be produced."
490  VTAB 23: INVERSE : PRINT "CONTINUE ?-(Y)es or (N)o": NORMAL
495  GET A$: IF A$ = "Y"  THEN 510
500  IF A$ = "N"  THEN 620
505  GOTO 495
510  HOME : VTAB 1: HTAB 2: PRINT "FINCALC Documentation";: HTAB 69: PRINT "Page 5 of 5":VP = 2:SP = 2:EP = 79: GOSUB 15
515  VTAB 3: PRINT "     If you are not familiar with these factors you will find them described in"
520  VTAB 4: PRINT "any text on Engineering Economics - otherwise the following brief definitions"
525  VTAB 5: PRINT "might be of interest:"
530  VTAB 6: PRINT "1.Future Worth of a Present Amount:the amount produced after x periods by $1"
535  VTAB 7: PRINT "  invested now.(e.g.if I leave my Savings alone what will they be in x years?)"
540  VTAB 8: PRINT "2.Present Worth of a Future Amount:the investment required now to produce $1"
545  VTAB 9: PRINT "  after x periods.(e.g.what must I have now to be a millionaire in x years?)"
550  VTAB 10: PRINT "3.Future Worth of an Annuity:the amount produced after x periodic investments"
555  VTAB 11: PRINT "  of $1.(e.g.how much will I have if I save $1/month for x years?)"
560  VTAB 12: PRINT "4.Annuity for a Future Amount:the periodic investments required to produce $1"
565  VTAB 13: PRINT "  after x periods.(e.g.how to save for a new car)"
570  VTAB 14: PRINT "5.Present Worth of an Annuity:the amount required now to produce periodic"
575  VTAB 15: PRINT "  payments of $1.(e.g.how much do I need in my RRSP?)"
580  VTAB 16: PRINT "6.Annuity from a Present Amount:the periodic payments for x periods produced by"
585  VTAB 17: PRINT "  $1 invested now.(e.g. just like a mortgage)"
590  VTAB 18: PRINT "     Note that in all the above definitions the term 'period' means year or"
595  VTAB 19: PRINT "month.It depends on which you specify when you enter 'A' or 'M'."
600  VTAB 23: INVERSE : PRINT "CONTINUE ? (Y)es or (N)o": NORMAL
605  GET A$: IF A$ = "Y"  THEN 30
610  IF A$ = "N"  THEN 620
615  GOTO 605
620  HOME : VTAB 11: HTAB 33: PRINT "LOADING FINCALC"
625  PRINT  CHR$(4);"RUN FINCALC": END